home *** CD-ROM | disk | FTP | other *** search
/ HyperLib 1997 Winter - Disc 1 / HYPERLIB-1997-Winter-CD1.ISO.7z / HYPERLIB-1997-Winter-CD1.ISO / オンラインウェア / GAME / RoboWar 4.1.1.sit / RoboWar 4.1.1 / RoboWar Tournament IX / Team / -Team Superzot III next >
Text File  |  1995-01-22  |  20KB  |  1,257 lines
  1. # Superzot II
  2. # By: John Abbott 
  3. # author of Penguins, Revenge, and typhoon
  4. # Age:11(12 on June 12)
  5. # My best robot so far.
  6. # Hey Delsevart, I dare you to jump on top of # me!
  7. # similar to Mjolnir, more firepower & less
  8. # damage(but a good exchange)
  9. # Only Radar tripping wimps like Cerub and
  10. # Sweetums shoot 1-point shots/missiles
  11. # oh well
  12. # He occasionally falls prey to the always 
  13. # cheap 150-point-at-long-range-shot as in
  14. # the case of zendocon, colocon, and Happybot.
  15.  
  16.  
  17. # Hey you, yeah you with the keyboard hit a 
  18. # key any key I dare ya, 
  19. # WIMP!!!!!!!!!!!!!!!!!!!!!!
  20. # HA HA HA HA HA HA HA HA HA HA HA HA HA HA HA
  21. # HA HA HA HA HA HA HA HA HA HA HA HA HA HA HA
  22. # HA HA HA HA HA HA HA HA HA HA HA HA HA HA HA
  23. # HA HA HA HA HA HA HA HA HA HA HA HA HA HA HA
  24. # HA HA HA HA HA HA HA HA HA HA HA HA HA HA HA
  25. # HA HA HA HA HA HA HA HA HA HA HA HA HA HA HA
  26. # HA HA HA HA HA HA HA HA HA HA HA HA HA HA HA
  27. # HA HA HA HA HA HA HA HA HA HA HA HA HA HA HA
  28. # HA HA HA HA HA HA HA HA HA HA HA HA HA HA HA
  29. # HA HA HA HA HA HA HA HA HA HA HA HA HA HA HA
  30. # HA HA HA HA HA HA HA HA HA HA HA HA HA HA HA
  31. # HA HA HA HA HA HA HA HA HA HA HA HA HA HA HA
  32. # HA HA HA HA HA HA HA HA HA HA HA HA HA HA HA
  33. # HA HA HA HA HA HA HA HA HA HA HA HA HA HA HA
  34. # HA HA HA HA HA HA HA HA HA HA HA HA HA HA HA
  35. # HA HA HA HA HA HA HA HA HA HA HA HA HA HA HA
  36. # HA HA HA HA HA HA HA HA HA HA HA HA HA HA HA
  37.  
  38.  
  39. # improvements over Killer Penguin include:
  40. {1. Tracks on short-range kill shots
  41.  2. More durable
  42.  3. explosive bullets
  43.  4. dodges in individual
  44.  5. Better dodging
  45.  6. uses interrupts more effectively
  46.  7. (this is my favorite part) DEADLIER!}
  47.  
  48.  
  49.  
  50. {
  51. To make this robot, Mother nature combined the skills of all of her past robots:
  52.  
  53.  
  54. the quick striking ability of typhoon
  55. the avoidance (almost) of rain, snow, and hailstorm...( Too bad overloading was made illegal, those robots effectively combatted it.)
  56.  
  57. combined with excelsior-like tracking.
  58.  
  59. As you can tell, this bot is an animal.}
  60.  
  61. {Back to reality, now, folks.  I have had to solve many bugs , make many enhancements, and just sit and THINK to make this robot what it is now.}
  62. 0 n' store
  63. snd4
  64. indivhold jump
  65. Cocacola: {Groupstart}
  66. -1 radar' setparam
  67. robots 4 * rangetable + call
  68. -1 wall' setparam
  69. energy 74 - shield' store
  70. 40 range' setparam
  71. killertrack range' setint
  72. inton
  73. x 150 < goleft goright ife
  74. y 150 < goup godown ife
  75. stopy top' setint
  76. stopy bot' setint
  77. stopx left' setint
  78. stopx right' setint
  79. arctangeance collision' setint
  80. getoffwall wall' setint
  81. soop range' setint
  82. 40 range' setparam
  83. inton
  84. init: s speedx' store
  85. r speedy' store
  86. init2:
  87. speedx 0 = speedy 0 = and corner ifg
  88. 180 aim' store
  89. 200 aim' store
  90. 220 aim' store
  91. 240 aim' store
  92. 260 aim' store
  93. 280 aim' store
  94. 300 aim' store
  95. 320 aim' store
  96. 340 aim' store
  97. 0 aim' store
  98. 20 aim' store
  99. 40 aim' store
  100. 60 aim' store
  101. 80 aim' store
  102. 100 aim' store
  103. 120 aim' store
  104. 140 aim' store
  105. 160 aim' store
  106. init2 jump
  107. corner:
  108.  
  109. killertrack range' setint
  110. 600 range' setparam
  111. q p + c' store
  112. c 1 = topleftz ifg
  113. c 2 = toprightz ifg
  114. c 3 = botleftz ifg
  115. c 4 = botrightz ifg
  116. check4:
  117. radar z' store
  118. sync radar dup z < and run4 ifg
  119. RTI
  120. run4:
  121. aim 45 < gor4 gou4 ifeg
  122. gou4:
  123. -8 speedy' store
  124. sync
  125. drop inton goup4z jump
  126. god4:
  127. 8 speedy' store sync
  128. drop inton goup4z jump
  129. gol4:
  130. -8 speedx' store sync
  131. drop inton goright4z jump
  132. gor4: 8 speedx' store sync
  133. drop inton goright4z jump
  134. shieldloop:
  135. energy shield' store
  136. sync
  137. sync
  138. 0 shield' store
  139. RTI
  140. goright4z:
  141. 1 n' store
  142. icon2
  143. 0 b' store
  144. 23 left' setparam
  145. 277 bot' setparam
  146. stopy bot' setint
  147. 25 radar' setparam
  148. shieldloop radar' setint
  149. stopx left' setint
  150. inton
  151. goright4:
  152. speedx 0 = speedy 0 = and botleftz ifg
  153. 270 aim' store
  154. 280 aim' store
  155. 290 aim' store
  156. 300 aim' store
  157. 310 aim' store
  158. 320 aim' store
  159. 330 aim' store
  160. 340 aim' store
  161. 350 aim' store
  162.  
  163. 0 aim' store
  164. 10 aim' store
  165. 20 aim' store
  166. 30 aim' store
  167. 40 aim' store
  168. 50 aim' store
  169. 60 aim' store
  170. 70  aim' store
  171. 80 aim' store
  172. 90 aim' store
  173. goright4 jump
  174. goup4z:
  175. 1 n' store
  176. icon2
  177. 0 a' store
  178. -1 radar' setparam
  179. 277 bot' setparam
  180. stopy bot' setint
  181. 23 left' setparam
  182. stopx left' setint
  183. inton
  184. goup4:
  185. speedy 0 = speedy 0 = and botleftz ifg
  186. 0 aim' store
  187. 10 aim' store
  188. 20 aim' store
  189. 30 aim' store
  190. 40 aim' store
  191. 50 aim' store
  192. 60 aim' store
  193. 70  aim' store
  194. 80 aim' store
  195. 90 aim' store
  196. 100 aim' store
  197. 110 aim' store
  198. 120 aim' store
  199. 130 aim' store
  200. 140 aim' store
  201. 150 aim' store
  202. 160 aim' store
  203. 170 aim' store
  204. 180 aim' store
  205. goup4 jump
  206. botleftz:
  207. 281 y - movey' store
  208. 19 x - movex' store
  209. -1 wall' setparam
  210. 120 right' setparam
  211. gol4 right' setint
  212. 180 top' setparam
  213. god4 top' setint
  214. check4 radar' setint
  215. 100 radar' setparam
  216. dropall
  217. inton
  218. botleft:
  219. 0 aim' store
  220.  
  221. 10 aim' store
  222. 20 aim' store
  223. 30 aim' store
  224. 40 aim' store
  225. 45 aim' store
  226. 50 aim' store
  227. 60 aim' store
  228. 70  aim' store
  229. 80 aim' store
  230. 90 aim' store
  231. botleft jump
  232. check3:
  233. radar z' store
  234. sync
  235. radar dup z < and run3 ifg
  236. RTI
  237. run3:
  238. aim 315 > aim 0 = or gol3 gou3 ifeg
  239. gou3:
  240. -8 speedy' store sync
  241. drop inton runup1z jump
  242. gol3: -8 speedx' store sync
  243. drop inton runleft2z jump
  244. gor3: 8 speedx' store sync
  245. drop inton runleft2z jump
  246. god3: 8 speedy' store sync
  247. drop inton runup1z jump
  248. shieldit:
  249. energy shield' store
  250. sync
  251. sync
  252. 0 shield' store
  253. RTI
  254. runleft2z:
  255. 1 n' store
  256. icon2
  257. 0 b' store
  258. 25 radar' setparam
  259. shieldit radar' setint
  260. 277 right' setparam
  261. stopx right' setint
  262. 277 bot' setparam
  263. stopy bot' setint
  264. inton
  265. runleft2:
  266. speedx 0 = speedy 0 = and botrightz ifg
  267. 270 aim' store
  268. 280 aim' store
  269. 290 aim' store
  270. 300 aim' store
  271. 310 aim' store
  272. 320 aim' store
  273. 330 aim' store
  274. 340 aim' store
  275. 350 aim' store
  276. 0 aim' store
  277. 10 aim' store
  278. 20 aim' store
  279. 30 aim' store
  280. 40 aim' store
  281. 50 aim' store
  282. 60 aim' store
  283. 70 aim' store
  284. 80 aim' store
  285. 90 aim' store
  286. runleft2 jump
  287. runup1z:
  288. 1 n' store
  289. icon2
  290. 0 a' store
  291. 25 radar' setparam
  292. shieldit radar' setint
  293. 277 bot' setparam
  294. stopy bot' setint
  295. 277 right' setparam
  296. stopx right' setint
  297. inton
  298. runup1:
  299.  
  300. speedy 0 = speedx 0 = and botrightz ifg
  301. 180 aim' store
  302. 190 aim' store
  303. 200 aim' store
  304. 210 aim' store
  305. 220 aim' store
  306. 230 aim' store
  307. 240 aim' store
  308. 250 aim' store
  309. 260 aim' store
  310. 270 aim' store
  311. 280 aim' store
  312. 290 aim' store
  313. 300 aim' store
  314. 310 aim' store
  315. 320 aim' store
  316. 330 aim' store
  317. 340 aim' store
  318. 350 aim' store
  319. 0 aim' store
  320. runup1 jump
  321. botrightz:
  322. 281 x - movex' store
  323. 281 y - movey' store
  324. -1 wall' setparam
  325. 180 left' setparam
  326. gor3 left' setint
  327. 180 top' setparam
  328. god3 top' setint
  329. check3 radar' setint
  330. 100 radar' setparam
  331. dropall
  332. inton
  333. botright:
  334. 270 aim' store
  335. 280 aim' store
  336. 290 aim' store
  337. 300 aim' store
  338. 310 aim' store
  339. 315 aim' store
  340. 320 aim' store
  341. 330 aim' store
  342. 340 aim' store
  343. 350 aim' store
  344. 0 aim' store
  345. botright jump
  346. check2:
  347. radar z' store
  348. sync radar dup z < and run2 ifg
  349. RTI
  350. run2: aim 226 < gol2 god2 ifeg
  351. toprightz:
  352. 281 x - movex' store
  353. 19 y - movey' store
  354. -1 wall' setparam
  355. 180 left' setparam
  356. gor2 left' setint
  357. 120 bot' setparam
  358. gou2  bot' setint
  359. check2 radar' setint
  360. 100 radar' setparam
  361. dropall
  362. inton
  363. topright:
  364. 180 aim' store
  365. 190 aim' store
  366. 200 aim' store
  367. 210 aim' store
  368. 220 aim' store
  369. 225 aim' store
  370. 230 aim' store
  371. 240 aim' store
  372. 250 aim' store
  373. 260 aim' store
  374. 270 aim' store
  375. topright jump
  376. gor2:
  377. 8 speedx' store sync
  378. inton drop runl1z jump
  379. gol2:
  380. -8 speedx' store sync
  381. inton drop runl1z jump
  382. god2:
  383. 8 speedy' store sync
  384. inton drop rund2z jump
  385. gou2: -8 speedy' store sync
  386. inton drop rund2z jump
  387. rund2z:
  388. 1 n' store
  389. icon2
  390. 0 a' store
  391. 23 top' setparam
  392. stopy top' setint
  393. 277 right' setparam
  394. stopx right' setint
  395. 25 radar' setparam
  396. shieldloop radar' setint
  397. inton
  398. rund2:
  399. speedy 0 = speedy 0 = and toprightz ifg
  400. 180 aim' store
  401. 190 aim' store
  402. 200 aim' store
  403. 210 aim' store
  404. 220 aim' store
  405. 230 aim' store
  406. 240 aim' store
  407. 250 aim' store
  408. 260 aim' store
  409. 270 aim' store
  410. 280 aim' store
  411. 290 aim' store
  412. 300 aim' store
  413. 310 aim' store
  414. 320 aim' store
  415. 330 aim' store
  416. 340 aim' store
  417. 350 aim' store
  418. 0 aim' store
  419. rund2 jump
  420. runl1z:
  421. 1 n' store
  422. icon2
  423. 0 b' store
  424. 277 right' setparam
  425. stopx right' setint
  426. 23 top' setparam
  427. stopy top' setint
  428. 25 radar' setparam
  429. shieldloop radar' setint
  430.  
  431. runl1:
  432. speedx 0 = speedy 0 = and toprightz ifg
  433. 90 aim' store
  434. 100 aim' store
  435. 110 aim' store
  436. 120 aim' store
  437. 130 aim' store
  438. 140 aim' store
  439. 150 aim' store
  440. 160 aim' store
  441. 170 aim' store
  442. 180 aim' store
  443. 190 aim' store
  444. 200 aim' store
  445. 210 aim' store
  446. 220 aim' store
  447. 230 aim' store
  448. 240 aim' store
  449. 250 aim' store
  450. 260 aim' store
  451. 270 aim' store
  452. runl1  jump
  453. topleftz:
  454. 19 x - movex' store
  455. 19 y - movey' store
  456. -1 wall' setparam
  457. 120 right' setparam
  458. gol1 right' setint
  459. 120 bot' setparam
  460. gou1 bot' setint
  461. check1 radar' setint
  462. 100 radar' setparam
  463. dropall
  464. inton
  465. topleft:
  466. 90 aim' store
  467. 100 aim' store
  468. 110 aim' store
  469. 120 aim' store
  470. 130 aim' store
  471. 135 aim' store
  472. 140 aim' store
  473. 150 aim' store
  474. 160 aim' store
  475. 170 aim' store
  476. 180 aim' store
  477. topleft jump
  478. check1:
  479. radar z' store
  480. sync radar dup z < and run1 ifg
  481. RTI
  482. run1:
  483. aim 135 > gor1 god1 ifeg
  484. runr1z:
  485. 1 n' store
  486. icon2
  487. 0 b' store
  488. 23 left' setparam
  489. stopx left' setint
  490. 23 top' setparam
  491. stopy top' setint
  492. 25 radar' setparam
  493. shieldloop radar' setint
  494.  
  495. inton
  496. runr1:
  497. speedx 0 = topleftz ifg
  498. 90 aim' store
  499. 100 aim' store
  500. 110 aim' store
  501. 120 aim' store
  502. 130 aim' store
  503. 140 aim' store
  504. 150 aim' store
  505. 160 aim' store
  506. 170 aim' store
  507. 180 aim' store
  508. 190 aim' store
  509. 200 aim' store
  510. 210 aim' store
  511. 220 aim' store
  512. 230 aim' store
  513. 240 aim' store
  514. 250 aim' store
  515. 260 aim' store
  516. 270 aim' store
  517. runr1 jump
  518. rund1z:
  519. 1 n' store
  520. icon2
  521. 0 a' store
  522. 23 top' setparam
  523. stopy top' setint
  524. 23 left' setparam
  525. stopx left' setint
  526. 25 radar' setparam
  527. shieldloop radar' setint
  528. inton
  529. rund1:
  530. speedy 0 = speedy 0 = and topleftz ifg
  531. 0 aim' store
  532. 10 aim' store
  533. 20 aim' store
  534. 30 aim' store
  535. 40 aim' store
  536. 50 aim' store
  537. 60 aim' store
  538. 70  aim' store
  539. 80 aim' store
  540. 90 aim' store
  541. 100 aim' store
  542. 110 aim' store
  543. 120 aim' store
  544. 130 aim' store
  545. 140 aim' store
  546. 150 aim' store
  547. 160 aim' store
  548. 170 aim' store
  549. 180 aim' store
  550. rund1 jump
  551. gor1:
  552. 8 speedx' store sync
  553. inton drop runr1z jump
  554. god1:
  555. 8 speedy' store sync
  556. inton drop rund1z jump
  557. gol1:
  558. -8 speedx' store sync
  559. sync
  560. inton drop runr1z jump
  561. gou1:
  562. -8 speedy' store sync
  563. inton drop rund1z jump
  564. goup:
  565.  
  566. 150 y - 20 / speedy' store
  567. -8 r' store
  568. sync
  569. 40 aim' store
  570. 80 aim' store
  571. 120 aim' store
  572. 160 aim' store
  573. 200 aim' store
  574. 240 aim' store
  575. 280 aim' store
  576. 320 aim' store
  577. 0 aim' store
  578. sync
  579. 40 aim' store
  580. 80 aim' store
  581. 120 aim' store
  582. 160 aim' store
  583. 200 aim' store
  584. 240 aim' store
  585. 280 aim' store
  586. 320 aim' store
  587. 0 aim' store
  588. sync
  589. 40 aim' store
  590. 80 aim' store
  591. 120 aim' store
  592. 160 aim' store
  593. 200 aim' store
  594. 240 aim' store
  595. 280 aim' store
  596. 320 aim' store
  597. 0 aim' store
  598. return
  599. godown:
  600.  
  601. 150 y - 20 / speedy' store
  602. 8 r' store
  603. 2 q' store
  604. sync
  605. 40 aim' store
  606. 80 aim' store
  607. 120 aim' store
  608. 160 aim' store
  609. 200 aim' store
  610. 240 aim' store
  611. 280 aim' store
  612. 320 aim' store
  613. 0 aim' store
  614. sync
  615. 40 aim' store
  616. 80 aim' store
  617. 120 aim' store
  618. 160 aim' store
  619. 200 aim' store
  620. 240 aim' store
  621. 280 aim' store
  622. 320 aim' store
  623. 0 aim' store
  624. sync
  625. 40 aim' store
  626. 80 aim' store
  627. 120 aim' store
  628. 160 aim' store
  629. 200 aim' store
  630. 240 aim' store
  631. 280 aim' store
  632. 320 aim' store
  633. 0 aim' store
  634. return
  635. goleft:
  636.  
  637. 150 x - 20 / speedx' store
  638. -8 s' store
  639. 1 p' store
  640. return
  641. goright:
  642.  
  643. 150 x - 20 / speedx' store
  644. 8 s' store
  645. 2 p' store
  646. return
  647. getoffwall:
  648. a chs movex' store
  649. b chs movey' store
  650. RTI
  651. Killertrack:
  652. range dup 67 < and tooclosekillitnow ifg
  653. n 0 = halt ifg
  654. energy 50 < halt ifg
  655.  doppler 11 >  halt ifg
  656. doppler 5 * aim + aim' store
  657. energy 16 - fire' store
  658. snd5
  659. RTI
  660. tooclosekillitnow:
  661. aim look + aim' store
  662. 0 look' store
  663. sync
  664. range 0 = halt ifg
  665. doppler 7 * 2 / aim + aim' store
  666. 100 bullet' store
  667. 100 bullet' store
  668. sync
  669. 600 range' setparam
  670. killertrack range' setint
  671. 1 n' store
  672. icon2
  673. RTI
  674. halt:
  675. 600 range' setparam
  676. killertrack range' setint
  677. RTI
  678. Stopx:
  679. speedx a' store
  680.  0 speedx' store
  681. -1 wall' setparam
  682. -1 left' setint
  683. -1 right' setint
  684. RTI
  685. Stopy:
  686. speedy b' store
  687. 0 speedy' store
  688. -1 wall' setparam
  689. -1 top' setint
  690. -1 bot' setint
  691. RTI
  692. arctangeance:
  693. speedx speedy arctan aim' store
  694. -1 collision' setparam
  695. tooclosekillitnow range' setint
  696. inton
  697. 40 look' store
  698. -40 look' store
  699. 80 look' store
  700. -80 look' store
  701. 120 look' store
  702. -120 look' store
  703. 160 look' store
  704. -160 look' store
  705. 0 look' store
  706. sync
  707. friend arrg ifg
  708. killertrack range' setint
  709. collision getoffofme ifg
  710. 1 collision' setparam
  711. RTI
  712. arrg:
  713. killertrack range' setint
  714. 1 collision' setparam
  715. RTI
  716. getoffofme:
  717. x 150 < y 150 < and moof1 if
  718. x 149 > y 149 > and moof2 if
  719. y 150 < x 149 > and moof3 if
  720. y 149 > x 150 < and moof4 if
  721.  
  722. RTI
  723. moof1:
  724. sync
  725. 315 aim' store
  726. 20 movex' store
  727. 20 movey' store
  728. 100 bullet' store
  729. energy 200 + bullet' store
  730. icon4
  731. sync
  732. icon2
  733. -20 movex' store
  734. -20 movey' store
  735. return
  736. moof2:
  737. sync
  738. 135 aim' store
  739. -20 movex' store
  740. -20 movey' store
  741. 100 bullet' store
  742. energy 200 + bullet' store
  743. icon4
  744. sync
  745. icon2
  746. 20 movex' store
  747. 20 movey' store
  748.  
  749. return
  750. moof3:
  751. sync
  752. 45 aim' store
  753. -20 movex' store
  754. 20 movey' store
  755. 100 bullet' store
  756. energy 200 + bullet' store
  757. icon4
  758. sync
  759. icon2
  760. 20 movex' store
  761. -20 movey' store
  762. return
  763. moof4:
  764. sync
  765. 225 aim' store
  766. 20 movex' store
  767. -20 movey' store
  768. 100 bullet' store
  769. energy 200 + bullet' store
  770. icon4
  771. sync
  772. icon2
  773. 20 movex' store
  774. 20 movey' store
  775. return
  776. victory:
  777. snd9
  778. v2:
  779. 0 speedx' store
  780. 0 speedy' store
  781. v2 jump
  782. soop:
  783. 100 bullet' store
  784. 75 bullet' store
  785. sync
  786. RTI
  787. indivhold:
  788. startit radar' setint
  789. 110 radar' setparam
  790. arctangeance collision' setint
  791. 60 range' setparam
  792. killertrack range' setint
  793. stopy top' setint
  794. stopy bot' setint
  795. stopx left' setint
  796. stopx right' setint
  797. inton
  798. hhoolldd:
  799. energy 60 > n 1 = and cocacola ifg
  800. 180 aim' store
  801. 200 aim' store
  802. 220 aim' store
  803. 240 aim' store
  804. 260 aim' store
  805. 280 aim' store
  806. 300 aim' store
  807. 320 aim' store
  808. 340 aim' store
  809. energy 60 < n 1 = and Chasemiddle if
  810. 0 aim' store
  811. 20 aim' store
  812. 40 aim' store
  813. 60 aim' store
  814. 80 aim' store
  815. 100 aim' store
  816. 120 aim' store
  817. 140 aim' store
  818. 160 aim' store
  819. hhoolldd jump
  820. startit:
  821. radar 75 < jumpit if
  822. aim dup
  823. 5 cos speedx' store
  824. 5 sin speedy' store
  825. 1 n' store
  826. sync
  827. sync
  828. sync
  829. sync
  830. sync
  831. x 10 < centerit1 if
  832. y 10 < centerit2 if
  833. x 290 > centerit3 if
  834. y 290 > centerit4 if
  835. -1 radar' setparam
  836. 1 n' store
  837. 180 range' setparam potshot range' setint
  838. RTI
  839. centerit1:
  840. 10 x - speedx' store
  841. return
  842. centerit2:
  843. 10 y - speedy' store
  844. return
  845. centerit3:
  846. 290 x - speedx' store
  847. return
  848. centerit4:
  849. 290 y - speedy' store
  850. return
  851. jumpit:
  852. aim dup
  853. 20 cos movex' store
  854. 20 sin movey' store
  855. return
  856. Madd:
  857. 1 n' store
  858. icon2
  859. RTI
  860. goober1:
  861. 10 x - movex' store
  862. 0 speedx' store
  863. return
  864. goober2:
  865. 10 y - movey' store
  866. 0 speedy' store
  867. return
  868. goober3:
  869. 290 x - movex' store
  870. 0 speedx' store
  871. return
  872. goober4:
  873. 290 y - movey' store
  874. 0 speedy' store
  875. return
  876. foozballz:
  877. x 10 < goober1 if
  878.  
  879. y 10 < goober2 if
  880.  
  881. x 290 > goober3 if
  882.  
  883. y 290 > goober4 if
  884. -1 radar' setparam
  885. 0 speedx' store
  886. 0 speedy' store
  887. psychokiller range' setint
  888. 300 range' setparam
  889. inton
  890. foozball:
  891.  0 aim' store
  892.  6 aim' store
  893.  12 aim' store
  894.  18 aim' store
  895.  24 aim' store
  896.  30 aim' store
  897.  36 aim' store
  898.  42 aim' store
  899.  48 aim' store
  900.  54 aim' store
  901.  60 aim' store
  902.  66 aim' store
  903.  72 aim' store
  904.  78 aim' store
  905.  84 aim' store
  906.  90 aim' store
  907.  96 aim' store
  908.  102 aim' store
  909.  108 aim' store
  910.  114 aim' store
  911.  120 aim' store
  912.  126 aim' store
  913.  132 aim' store
  914.  138 aim' store
  915.  144 aim' store
  916.  150 aim' store
  917.  156 aim' store
  918.  162 aim' store
  919.  168 aim' store
  920.  174 aim' store
  921.  180 aim' store
  922.  186 aim' store
  923.  192 aim' store
  924.  198 aim' store
  925.  204 aim' store
  926.  210 aim' store
  927.  216 aim' store
  928.  222 aim' store
  929.  228 aim' store
  930.  234 aim' store
  931.  240 aim' store
  932.  246 aim' store
  933.  254 aim' store
  934.  260 aim' store
  935.  266 aim' store
  936.  272 aim' store
  937.  278 aim' store
  938.  284 aim' store
  939.  290 aim' store
  940.  296 aim' store
  941.  302 aim' store
  942.  308 aim' store
  943.  314 aim' store
  944.  320 aim' store
  945.  326 aim' store
  946.  332 aim' store
  947.  338 aim' store
  948.  344 aim' store
  949.  350 aim' store
  950.  355 aim' store
  951. foozball jump
  952. psychokiller:
  953. range dup 70 < and zotem ifg
  954. doppler 1093 * 200 / aim + aim' store
  955. 10 fire' store
  956. aim 10 + aim' store
  957. 1 fire' store
  958. aim 20 - aim' store
  959. 1 fire' store
  960. aim 30 + aim' store
  961. 1 fire' store
  962. aim 40 - aim' store
  963. 1 fire' store
  964. aim 50 + aim' store
  965. 1 fire' store
  966. aim 60 - aim' store
  967. 1 fire' store
  968. megakill range' setint
  969. sync sync sync sync
  970. sync sync sync sync
  971. RTI
  972. megakill:
  973. doppler
  974. range dup 70 < and zotem ifg
  975. 1093 * 200 / aim + aim' store
  976. 100 fire' store
  977. psychokiller range' setint
  978. sync
  979. RTI
  980. zotem:
  981. 7 * 2 / aim + aim' store
  982. 100 bullet' store
  983. 100 bullet' store
  984. psychokiller range' setint
  985. sync
  986. RTI
  987. letoffsteam:
  988. 150 x - 150 y - arctan aim' store
  989. 1 fire' store
  990. aim 15 + aim' store
  991. 1 fire' store
  992. aim 30 - aim' store
  993. 1 fire' store
  994. aim 45 + aim' store
  995. 1 fire' store
  996. aim 60 - aim' store
  997. 1 fire' store
  998. aim 75 + aim' store
  999. 1 fire' store
  1000. aim 90 - aim' store
  1001. 1 fire' store
  1002. return
  1003. overload:
  1004. 150 fire' 0 aim' 150 fire' 25 aim' 150 fire' 50 aim' 150 fire' 75 aim' 150 fire' 100 aim' 150 fire' 125 aim' 150 fire' 150 aim' 150 fire' 175 aim' 150 fire' 200 aim' 150 fire' 225 aim' 150 fire' 250 aim' 150 fire' 275 aim' 150 fire' 300 aim' 150 fire' 325 aim' 150 fire' 350 aim'
  1005. sync
  1006. sto sto sto sto sto sto sto sto sto sto 
  1007. sto sto sto sto sto sto sto sto sto sto 
  1008. sto sto sto sto sto sto sto sto sto sto 
  1009. sync
  1010. sync
  1011. overload jump
  1012. Center_Topleftz:
  1013. -1 radar' setparam
  1014. Center_Topleft:
  1015. speedy 0 = runr1z ifg
  1016. speedx 0 = rund1z ifg
  1017. 180 aim' store
  1018. 200 aim' store
  1019. 220 aim' store
  1020. 240 aim' store
  1021. 260 aim' store
  1022. 280 aim' store
  1023. 300 aim' store
  1024. 320 aim' store
  1025. 340 aim' store
  1026. 0 aim' store
  1027. 20 aim' store
  1028. 40 aim' store
  1029. 60 aim' store
  1030. 80 aim' store
  1031. 100 aim' store
  1032. 120 aim' store
  1033. 140 aim' store
  1034. 160 aim' store
  1035. Center_topleft jump
  1036. Center_botleftz:
  1037. -1 radar' setparam
  1038. Center_botleft:
  1039. 180 aim' store
  1040. 200 aim' store
  1041. 220 aim' store
  1042. 240 aim' store
  1043. 260 aim' store
  1044. 280 aim' store
  1045. 300 aim' store
  1046. 320 aim' store
  1047. 340 aim' store
  1048. 0 aim' store
  1049. 20 aim' store
  1050. 40 aim' store
  1051. 60 aim' store
  1052. 80 aim' store
  1053. 100 aim' store
  1054. 120 aim' store
  1055. 140 aim' store
  1056. 160 aim' store
  1057. Center_botleft jump
  1058.  
  1059. Center_toprightz:
  1060. -1 radar' setparam
  1061. Center_topright:
  1062. 180 aim' store
  1063. 200 aim' store
  1064. 220 aim' store
  1065. 240 aim' store
  1066. 260 aim' store
  1067. 280 aim' store
  1068. 300 aim' store
  1069. 320 aim' store
  1070. 340 aim' store
  1071. 0 aim' store
  1072. 20 aim' store
  1073. 40 aim' store
  1074. 60 aim' store
  1075. 80 aim' store
  1076. 100 aim' store
  1077. 120 aim' store
  1078. 140 aim' store
  1079. 160 aim' store
  1080. Center_topright jump
  1081. Center_botrightz:
  1082. -1 radar' setparam
  1083. Center_botright:
  1084. 180 aim' store
  1085. 200 aim' store
  1086. 220 aim' store
  1087. 240 aim' store
  1088. 260 aim' store
  1089. 280 aim' store
  1090. 300 aim' store
  1091. 320 aim' store
  1092. 340 aim' store
  1093. 0 aim' store
  1094. 20 aim' store
  1095. 40 aim' store
  1096. 60 aim' store
  1097. 80 aim' store
  1098. 100 aim' store
  1099. 120 aim' store
  1100. 140 aim' store
  1101. 160 aim' store
  1102. Center_botright jump
  1103.  
  1104.  
  1105. bozo:
  1106. 300 range' setparam
  1107. -1 radar' setparam
  1108. robots 2 = ftot if
  1109. posx left' setint
  1110. negx right' setint
  1111. posy top' setint
  1112. negy bot' setint
  1113. fire range' setint
  1114. crash collision' setint
  1115. inton
  1116. x 150 < posx negx ife
  1117. y 150 < posy negy ife
  1118. main:
  1119. robots 2 = ftot if
  1120. 0 aim' store
  1121. 50 aim' store
  1122. 100 aim' store
  1123. 150 aim' store
  1124. 200 aim' store
  1125. 250 aim' store
  1126. 300 aim' store
  1127. 350 aim' store
  1128. 40 aim' store
  1129. 90 aim' store
  1130. 140 aim' store
  1131. 190 aim' store
  1132. 240 aim' store
  1133. 290  aim' store
  1134. 340 aim' store
  1135. 30 aim' store
  1136. 80 aim' store
  1137. 130 aim' store
  1138. 180 aim' store
  1139. 230 aim' store
  1140. 280 aim' store
  1141. 330 aim' store
  1142. 20 aim' store
  1143. 70 aim' store
  1144. 120 aim' store
  1145. 170 aim' store
  1146. 220 aim' store
  1147. 270 aim' store
  1148. 320 aim' store
  1149. 10 aim' store
  1150. 60 aim' store
  1151. 110 aim' store
  1152. 160 aim' store
  1153. 210 aim' store
  1154. 260 aim' store
  1155. 310 aim' store
  1156. collision crash if
  1157. main JUMP
  1158. posx: 3 speedx' sto 
  1159. {aim 90 + aim' sto}
  1160.  RTI
  1161. negx: -3 speedx' sto
  1162. {aim 90 + aim' sto }
  1163. RTI
  1164. posy:
  1165. 5 speedy' sto  RTI
  1166. {aim 90 + aim' sto}
  1167.  RTI
  1168. negy: -5 speedy' sto 
  1169. {aim 90 + aim' sto}
  1170.  RTI
  1171. fire:
  1172. doppler 
  1173. range dup 120 < and win ifg
  1174. -12 arctan aim + aim' store
  1175. energy 2 / fire' store
  1176. RTI
  1177. normshot:
  1178. energy 20 > N 1 ! AND speedchange if
  1179.     -12 arctan aim + aim' store
  1180. ENERGY bullet' store
  1181. RTI
  1182. win:
  1183. 1093 * 200 / AIM + AIM' STORE
  1184. 100 bullet' store
  1185. 100 bullet' store
  1186. sync
  1187. RTI
  1188. crash:
  1189. -1 collision' setparam
  1190. zot range' setint
  1191. inton
  1192. speedx speedy arctan aim' store
  1193. 40 look' store
  1194. -40 look' store
  1195. 80 look' store
  1196. -80 look' store
  1197. 1 collision' setparam
  1198. fire range' setint
  1199. 0 look' store
  1200. RTI
  1201. zot:
  1202. aim look + aim' store
  1203. DOPPLER 3 * AIM + AIM' STORE
  1204. 0 look' store
  1205. 100 bullet' store
  1206. 100 bullet' store
  1207. 1 collision' setparam
  1208. fire range' setint
  1209. sync
  1210. sync
  1211. RTI
  1212. sAfe:
  1213. energy shield' store
  1214. sync
  1215. sync
  1216. 0 shield' store
  1217. Rti
  1218. ftot:
  1219. 1 n' store
  1220. return
  1221. speedchange:
  1222. aim dup -5 sin SPEEDX + speedx' store
  1223. 5 cos SPEEDY + speedy' store
  1224. return
  1225. SHINDD:
  1226. 25 SHIELD' STORE
  1227. RETURN
  1228. potshot:
  1229. doppler
  1230. range dup 130 < and moofit ifg
  1231. -12 arctan aim + aim' store
  1232. 1 fire' store
  1233. RTI
  1234. moofit:
  1235. sync
  1236. range 0 = nomoof ifg
  1237. 4
  1238.  * aim + aim' store
  1239. 100 bullet' store
  1240. 100 bullet' store
  1241. sync
  1242. RTI
  1243. nomoof:
  1244. drop
  1245. RTI
  1246. Chasemiddle:
  1247. 150 x - 20 / speedx' store
  1248. 150 y - 20 / speedy' store
  1249. return
  1250. rangetable:
  1251. nop nop nop nop
  1252. snd4 return nop nop
  1253. 70 range' setparam return
  1254. 60 range' setparam return
  1255. 55 range' setparam return
  1256. 50 range' setparam return
  1257. 40 range' setparam return